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About this book 

The programs in this book are 
written in a standard version of 
BASIC and there are conversion 
lines to type in for most of the main 
types of home computers. Look 
down the left-hand side of the 
program for the symbol for your 
computer and then look at the list of 
changes for the correct version of 
that line. The symbols for the various 
computers are as follows: 

a Commodore 64 and VIC 20 

•BBC and Electron 

♦Spectrum 

•Apple 

■ TRS-80 (extended BASIC version) 

About the games 

The games in this book are very 
simple. They are intended to help 
you get used to your computer and 
to the BASIC language by typing in 
listings, debugging them and seeing 
how they work. The programs do 
not contain graphics or sound as 
these vary so much from computer 
to computer, but you can try adding 
these. 

You can change and adapt the 
games as much as you like. There 
are suggestions for ways of doing 
this next to each program and you 
can experiment with your own ideas 
as well. This way you can use the 
games in this book as a basis for 
longer, more complicated games of 
your own. 



Typing and running the 
programs 

Remember, even short programs 
can be quite difficult and time- 
consuming to type in correctly. 
Check each line as you go. It is so 
easy to make mistakes, even if you 
are quite experienced. When you 
have typed in the whole listing, 
check it again, making sure you 
haven't missed any lines, spaces or 
punctuation. 

To start the game, type RUN. Read 
the introduction to the game first so 
that you have some idea of what you 
are supposed to do before you start. 
If the program doesn't work 
properly, it is quite likely that there 
is a mistake in it somewhere, so LIST 
the program and check again. 

When the game is over, the 
computer may ask if you want to 
play again or say something like 
BREAK in 200, in which case you 
must type RUN to play again. 

Changing the speed 

Some games depend on the speed 
of both your reactions and your 
computer. You may find you need to 
adjust the speed. You will find 
instructions for doing this next to the 
program listing. 
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Try changing the pulse 
rate limit. 
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Can you work out how 
add more rooms too? 
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Your mouth is dry, your legs are shaking and your heart is thumping - you've entered 
the Tower of Terror . . . 

Press G to move through the rooms. Agh!! there's a skeleton, then a ghost, then a 
headless axeman! With each fresh shock your pulse rate rockets. 

Will you go on (G), or retreat ( R) to recover a little? Watch the time - you've only got 
until midnight to reach the top of the Tower and the coveted Treasure. Watch your 
pulse rate too. Madness takes over when it reaches 150 and nothing can stop you 
leaping to your doom out of the window. 

How it works 

10: Goes to initialization section 
to read in data. 

30: RM is the room you're in. 

40-50: Set the starting time and 
pulse rate. 

90: Prints any comment stored inR$. 

100-160: Work out floor and room 
you are in from value of RM and 
print this information. 

170-180: Print other information. 

190: GF is a flag which is set 
when there is a nasty ahead. 

200; Checks if you've reached 
the last room. 

210: Selects room for trap door. 

220: Random chance of there 
being something ahead. Goes to 
subroutine if there is. 

230-280: Get player's input and 
act on it. 

290: Increases time. 

300: Tests for midnight. 

310: Tests if pulse rate is too high. 

'330: Checks if you are in room 
with trap door. 

400 410: Move forward routine. 
Increase pulse if there's a nasty. 

420-460: Select a type of nasty 
and its shock rating. 

470-51 0: Read in data for start of 
game (initialization). 

520: Trap door subroutine. 

Conversion lines 

$ 40,210,220,290,330.420,440 Replace 
RND(l) aith RND 

■ 40 t 2l0,220 t 290, 330,420, 440 Replace 
RNBU) with RNDIO) 

▲ 60 PRINT CHR*(M7):PRINT:PRINT 

• 60 HOME:PRINT;PRINT 



10 GOSUB 470 

20 LET R*=*GQ0D LUCK" 

30 LET Rrt=0 

$40 LET H=9:LET H=INTiRNI>( 

50 LET P=50 

>A6(i CLSiPRINTsPRlNT 

70 PRINT "TOWER OF TERROR 

80 PRINT "MKSaSSSgMSS 

90 PRINT:PRINT R$ 

100 LET R*= ,MI :LET FL=INTiRH/5> 

110 LET ft=RM-FL*5+l 

120 PRINT:PR]N7 "YOU ARE ON" 

130 IF FL=0 THEN PRINT "THE GROUND FLOOR" 

140 IF FL=i THEN PRINT "THE TOP FLOOR" 

150 IF FL>0 AND FL<6 THEN PRINT "FLOOR - |FL 

160 PRINT H IN ROOM "sR 

170 PRINTjPRINT 'THE TIME IS 'iHjV* 1 PJ! 1 
- 180 PR INT: PR I NT 'YOUR PULSE RATE IS "jP 

190 LET GF=0 

200 IF R«=30 THEN GOTO 350 
$210 LET TR*INT(RND(l)#9+i) 
$220 IF RNDU)>.6 THEN &QSUB 420 

230 PRINTjPRINT "RETREAT Oft 60 ON (R/G)" 
r#A240 LET Jf=INKEY* 

250 IF IIO"G" AND LK>T THEN GOTO 240 

260 IF I$="G" THEN GOSUB 400 

270 IF 1*="R" THEN LET nHOMtLET P B M 

280 IF RtfH THEN LET RH=0 

290 LET H=H+INTIRNI>(1)*3+1 

300 IF H=l2 THEN GOTO 360 

310 IF P>150 THEN GOTO 380 

320 IF P<40 THEN LET P=40 
$330 IF FL=TR AND 

340 GOTO 60 

350 PRINT "WELL DONE ":ST0P 

360 PRINT:PR1NT "IT'S MIDNIGHT 

370 PRINTsPRINT "TOD LATE!":ST0P 

380 PRINT "YOU HAVE GONE MAD AND" 

390 PRINT "LEAPT FRDN A WINDOW f "! STOP 

400 IF GF=1 THEN LET P*P+S*2;LET R*= P AAAHHHH 

410 LET P=P-1;LET RM=RH+i: RETURN 
$420 LET T¥=INT(RND(l)*Jtn 

430 LET N*»G*<TYJ 
$440 LET S=INT(RND(1>*5)+FL+TY*2 

450 PRINTjpRINT "AHEAD YOU SEE A ";W* 
r^TI 460 LET GF=liRETURN 
O&470 DIM 61(3) 

480 LET G$I1)= - SKELET0IT 

490 LET Gi(2)='6H0ST" 

500 LET 6*<3)='HEADLE5S AXEMAN" 

510 RETURN 

520 LET R*="Y0iJ FELL THROUGH A TRAP 






See if you can add more 

nasties and change 

their shock ratings. 





:IF H>59 THEN LET M=M-60;LET H=H+1 



[11)0.5 THEN GOSUB 520 



What is the Treasure of 

Tower and how did it 

get there . . .? Perhaps 

you can add your ideas 

to the program. 
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":LET RM=RK-5iLET P=P+10s RETURN 
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Skulls oftfiePyramid 



A mind without a body - that's all you've been since that terrible accident all 
those years ago, during the building of The Pyramid. 

It takes all your mental energy to satisfy the Evil Spirit Master's demands. 
Every day he forces a number into your mind (if only you could turn him off!). 
You must will skulls to fall off The Pyramid onto the numbered stones below in an 
attempt to score that number. 

Press 1 , 2, 3 or 4 to release a skull. You must use five skulls each go - nomore, 
no less. Score the right number and rid yourself of the Curse of The Pyramid. 
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^S Increase the value of SP in 
^"7 line 1 to speed up the 
^\j program. 

'10 LET TS=0sLET l*="0 a iLET SP=3 
[20 LET N=INT(RNDil)*30}+10 
^30 CLSi PRINT 

40 PRINT "SKULLS OF THE PYRAMIDS 

50 PRINT 

'60 PRINT "YDU ARE REQUIRED" 

70 PRINT "TO GET ";N:PRINT 

B0 LET K=3QO0iG0SUB 540 
•a 90 CLSiLET Y=2 
100 FOR 1=1 TO 4 
110 LET A*=STR$U):LET X=A+2*I 
120 BDSUB 560 
130 NEXT I 

140 LET A*= I,A ":FDR 1=1 TO 5 
150 LET Y=2*2*I 
160 FOR J=l TD 1+3 
170 LET I-7-KM 
ISO GDSUB 560 
190 NEXT J 
200 NEXT I 
210 LET Y=14 

220 FOR 1=1 TO 9! LET A$=5TR$(I) 
230 LET X=1*2#I:B0SUB 540 
240 NEXT I 
250 LET S=0 
260 FOR 1=1 TO 5 
270 LET Af="CH0Q5E ROW" 
280 LET X=0iLET Y=0;GQSUB 560 
••a 290 LET I*=INKEY* 

300 IF I$=""THEN SOTO 290 

310 LET R=VALU*) 

320 IF R<1 OR R>4 THEN SOTO 290 

330 LET Y=3:LET K=400:LET X=6+2*R 

340 LET F=0 

. «. _ 



How the program works- 



10: Sets variables at beginning of 
game. 

20: Chooses number that player 
must score. 

30-80: Print starting message and 
wait for player to see it . 

9 -240: Print out pyramid and the 
numbers at the top and bottom of it. 




See if you can 
replace the skull 
M \ symbolwitha ) 
f ( graphics character. A 




Add nasty thudding 
noises as the skulls 

bump down The 
Pyramid if you can. 



250: Sets score to zero. 
260: Sets number of skulls. 

270-280: Print message top 

left of screen. 

290-300: Wait for key to be 
pressed. 

310-320: Check if key pressed 
is between 1 and 4 and go 
back to wait again if it isn't. 

330: X and Y are position of 
skull. This line sets them 
at the top of the pyramid. 

340: F is a flag which 
records whether previous 
move was a sideways 

bounce. 



TT" 




Bet you can't work 

out how to add more 

skulls each go. 





350 LET A*= tt B 
360 GOSUB 560 
370 GOSUB 540 
380 LET A*=" " ! GOSUB 560 
■O390 IF F=0 AND Y<13 THEN LET X=X*SGN(RND(1K5) 
400 LET Y=Y+1;LET F=l-F 
410 IF Y<14 THEN GOTO 350 
420 LET S=S+(M>/2 
430 LET X=15sLET Y=0 
440 LET A*=STR*U)+V+STR$(S) 
450 GOSUB 560 
460 NEXT I 

470 LET K=1000:GQSUB 540 
480 LET D=ABS(S-N):LET TS=TS+D 
•A490 CLSiPRiNTiPRINT 

500 PRINT "YOUR RATING IS NOW ";TS 
510 IF D)l THEN LET K=3000:G0SUB 540: GOTO 20 
520 PRINT "AND YOU CAN GO FREE!" 
530 STOP 

540 FOR T=I TO K STEP SP:NEXT T 
550 RETURN 
£■•▲560 PRINT TABU,Y);A$ 



570 RETURN 



350-370; Print the skull and wait. 

380: Remove the skull. 

390: Choose which way to 
bounce (if value of F allows 
sideways bounce). 

400: Moves skull down one row, 

410: Checks if skull has reached 
the bottom. 

420: Works out score depending 
on column skull finishes in. 

430-450: Print out score. 

470: Waits. 

480-500; Add difference between 
score and number required to 
total score. Clear screen and 
print score. 

510: If difference is greater than . 
1 , goes back for another go. 

520: Prints winning message. 

540-550: Subroutine to make 
computer pause for length of 
time depending on K . 

560-570: Subroutine to move 
cursor to position X, Y on the 
screen* 




Don't suppose 
you're clever 
^^^ enough to change 
I the limits of the 
X. V number to be 

^V^ \ scored. 
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Conversion lines 

$20,390 Replace RNO(l) with RND 

■ 20,390 Replace RND(l) with RND(O) 

• 30,90,490 Replace CLS with HOME 

a 30,90,490 Replace CLS with PRINT CHR$U47) 

• 290 LET I*=INKEY$<0) 

• 290 I$= nB :IF PEEKM6384)>127 THEN GET I* 
a 290 GET II 

O560 PRINT AT Y,XjA$ 

• 560 VTAB(YtI):HTAB()(+l):PRINT Al 
A560 PRINT CHR*(19);.FQR LW TO Y: 

PRIHTsHBXTsPRIHT TABOO ;A* 

■ 560 PRINTS Y*3M,Mj 




■* - , ■ 

Monster Wrestling 




Monster wrestling is a sport for lunatics! Which doesn't say much for you - the 
brain in charge of this hulk of bone and muscle which is about to take on some of the 
nastiest monsters in the Universe. 

As brain, you must do a lot of quick and accurate calculations. You must work out 
the muscular effort required to hold of f the monster, for instance, and this involves 
multiplying the size of the monster by the distance it is away from you. 

If the numbers look too difficult, you can press the Panic Button (key P). You must 
then work out how much adrenalin the body needs to survive the crisis, by 
dividing heartbeat increase required by oxygen supply. Take care though, over- 
use of the Panic Button puts too much strain on the heart and will eventually cause 
a black out. 

To live to fight another match, you must survive 12 rounds against the monster. 
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20 

30 
•▲40 
50 
60 
70 



100 
110 
120 
130 
140 
150 
160 
170 
160 
190 
200 
210 
220 
230 

•▲240 
250 
260 
270 
280 
290 
300 
310 

•▲320 
330 
340 
350 
360 
370 



LET P=0 

LET K=3 

CLS 

LET M 

LET Y=6 

LET II*-! 

LET N=N+1 

LET G=INT(RND(1) *Y+X) 

LET I*INT(RNDU»*K+K) 

LET Y=Y+0.5 

LET X=X+0.5 

LET K=K+0.5 

PRINT 

PRINT 

PRINT "SIZE OF MONSTER! J '; 

PRINT G 

PRINT 

PRINT "DISTANCE AWAY.- *: 

PRINT I 

PRINT 

PRINT "MUSCULAR EFFORT? ■; 

G0SUB 570 

IF l<>m THEN SDT0 320 

CLS 

PRINT "MONSTER KEPT AT SAY" 

IF N<11 THEN GOTO 75 

PRINT 

PRINT 

PRINT "LOOK FOR ANOTHER VICTIM." 

PRINT "YQU SURVIVE TQ TELL THE TALE! 

STOP 

CLS 

PRINT "YOU HAVE BEEN CRUSHED" 

PRINT "TO A PULP IN THE" 

PRINT "MONSTER'S HUGE ARMS" 

PRINT 

PRINT "YOU SURVIVED "jNi" ROUNDS" 



How the program works 

20: Sets number of panics used to 
zero. 

30-60: Set upper limits for size of 

monster and distance away. 



70: Sets number of rounds. 

80: Sets monster size. 

90: Sets distance away. 

100-120: Increase upper limits for 
size and distance by 0.5 each 
round. 

210-220: Ask for answer and go to 
subroutine to deal with it 

230: If answer incorrect, jumps 
down program for losing 
message. 

250: Message if round won. 

260; Goes back for next round. 

270-310: Winning message if you 
survive 1£ rounds. 

330-380: Losing message. 



"PHEWHH-THE MONSTER" 
"IS TIRED AND HAS GONE TQ 1 



If you keep losing, 
you'd better slow the 

program down by 

increasing the value of 

Q in line 660. 



C 



Decrease O if the game 
is too easy for you. 





STOP 

CLS 

LET HX=INT(RND(i)*?*l> 

LET WY=INT(RND(1>*9+1> 

LET W=WX*WY 

LET P=P+1 

IF P=4 THEN GOTO 700 

IF P=3 THEN PRINT "YOU ARE SEEING STARS 1 

PRINT "PANIC ON!!" 

PRINT 

PRINT "HEARTBEAT INCREASES ";W 

PRINT "OXYGEN SUPPLY*' 5 HX 

PRINT 

PRINT "AMOUNT OF ADRENALIN? "; 

LET 0*100 

SOSUB 580 

IF ZOWY THEN 60T0 320 

CLS: IF N<11 THEM SOTO 75 

GOTO 270 



Make it harder for 

yourself- find out how 

to increase the number 

of rounds. 




LET 0=0 

LET lU" tt 

LET A$=INKEY$ 

IF A$=CHR$(I3) THEN SOTO 680 

IF A$*"P" THEN SOTO 390 

IF VAL(A$)=0 AND ttO'0* THEN GOTO 650 

PRINT A$; 

let mmm 

LET Q=S+1 

IF 0=500 THEN GOTO 320 

GOTO 590 

LET Z=VAL(ZI) 

RETURN 

CLS 

PRINT B Y0U BLACKED OUT" 

STOP 




400-410: Set oxygen supply and 
amount of adrenalin needed 

420: Sets heartbeat increase. 

430-450: Increase panic count, 
print warning after 3 and end 
game after 4. 

460-5 1 : Print panic messages 
and ask for answer. 

520: Sets value of Q for start of 
count at lines 650-660. 

530: Goes to answer subroutine. 

540: If answer incorrect, jumps 
back to losing message. 

550-560: If correct, go back foi 
next round or winning message. 

570-690: ANSWER SUBROUTINE. 
570: Sets count to zero. 

580: Sets aside memory for ZS . 

590: Checks for key press. 

600; Checks if key pressed is 
RETURN (CHR$(13)). If so jumps 
down to line 680. 

610: Checks if P key pressed and 
if so, goes to panic routine. 

620: If no key pressed, jumps 
down to increase count Q. 

630: If key other than RETURN or 
P pressed, it is printed. 

640: Z$ is all keys pressed this round. 

650-660: Time loop. If O reaches 
1000 before key is pressed, jumps 
up to losing message. 

670: Goes back for next key press. 

680: Converts numbers in string 
Z$ to values it can put in Z. 

710: Losing message for over-use 
of panic. 
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Conversion lines 

A 40,240,320,390,550,700 Change CLS to PRINT CHR*<147) 
• 40,240,320,390,550,700 Change CLS toHOME 
$80,90,400,410 change RMD(l) to RN0 
■ 60,90,400,410 Change RNDU) to RMD'O) 
•520 LET 6=400 
$580 LET Z$='0" 
•590 LET A$=lNKEY$tn 
A590 GET A$ 

•590 A*=":IF PEEK (-143841 >i27 THEN GET A* 
0595 IF A*=" THEN GOTO 650 
$597 PAUSE 40 

O&00 IF A*=CHRf (13) THEN PAUSE 20: GOTO 680 
s*Z6lO IF A*="P" THEN PAUSE 30:SQT0 390 
$630 PRINT A$;:PAUSE 15 
*660 IP Q=10O0 THEN GnjQ 320 
£■•660 IF 0=250 THEN SOTO 320 
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Jaws 



Mmmmmm . . ■ people do taste yummy I But, with The Hunter forever on your tail, it's 
difficult to get close enough to catch them. 

You are J (for Jaws) and you can move around by pressing keys A, Z, N and M. See 
how many Ps (people) you can eat before H catches you. There's a snag (of course). 
Each time you succeed in catching and devouring a delicious human being, you get so 
excited you cant remember which key does what. 






110 DIM M$U2);DIi1 K*14>:GQSUB 660 
20 LET S=0:LET T=0: LET G=0 
30 LET M 

40 LET K$(n= B A":LET K*(2.^"fl M 
50 LET K*(3)=*Z H :LET K*t4J= # tt* 



70 

BO 

90 

*A#J00 

110 

120 

130 

140 

;so 

160 
170 
180 
190 
200 
210 
220 
230 



250 
260 
270 
280 



LET PX=2jLET PY=2 

B0SUB 400 

B0SUB 4<7QsGDSU8 440 

LET NX=PX;LET NY=PY 

LET It=INKEYf 

IF I$=KI(l) THEM LET NY=NY-i 

IF I$=JC$(2) THEN LET NX=NM 

IF If=Ki(JJ THEN LET NV^NY+1 

IF l*HCi(4> THEN LET NX=NX-l 

LET X=NX:LET Y=NYj6Q5UB 330 

IF F=l THEN GOTO 230 

LET X=PX:LET Y=PY}LET AS=" ' 

60SUB 640 

LET X=NIsLET Y=NY*LET A*='T 

G0SUB 640 

LET PX=NX;LET PY=NY 

]F PX=TX AND PY=TY THEN GDSUB 340 

IF PX=GX AND PY=GY THEN GOTO 280 

IF RND(1)>U THEN GOSUB 370 

LET X=14:LET Y=I2:LET A$=STRJ(T) 

GDSUB 640 

LET G=S+3:GOT0?O 

FOR P=i TQ 2000:NEXT P 



I dare you to make 

the hunter move 

more often. 



Conversion lines 




$10 DIM K*U2,U)iDM K* (4)1 GOSUB 660 

• 100 LET l*=IHKEY$(Q) 

• 100 I*= U ":IF PEEK(-U3B4}>127 THEN GET II 
AiOG GET II 

$240,390,400,550,560 Replace RNDfl) with RND 
■ 240,390,400,550,560 Replace RNDU) with RNDtOJ 
•2?0,600 Replace CLS with HOKE 
A290.600 Replace CLS with PRINT CHRMH7) 
$530 LET F=0:IF «$(¥,!{)<>" ' THEN LET F=l 
$640 PRINT AT Y,X;At 
•640 VTAB(Y):HTABmsPftlNT ft$ 

±640 PRINT CHR*(1<?J;;F0R LL*1 TO YiPRIHTiHEXTiPRIMT TAB(X);AI 
■M0 PRINT! Y*32+Jt t Af; 



How the program works 

10: Sets aside memory space for the 
grid. Goes to subroutine to read in data 
for grid 

20: Sets variables to zero for start. 

3D: Sets how often hunter moves. 

40-50: Set directions in which keys 
move. 

60 : Sets starting position for Jaws. 

70: Goes to subroutine which prints out 
grid. 

80: Goes to subroutines which choose 
positions for hunter and person. 

9 : Sets Jaws 1 position to new position. 

1 00- 1 40 : C alculate new position of Jaws 
depending on which key pressed. 

150: Checks this new position is not a 

wall. 

160: If it is a wall, don't move. 

1 70-180: Print space at Jaws' old 

position. 

190-200: Print J at Jaws* new position. 
210: Sets Jaws' position to new position. 

220: Checks if J landed on P and if so, 

goes to subroutine. 



230: Checks if J landed on H and, if so, 
goes down program to end game. 

240: Moves hunter. 

250-260: Print score so far. 

270: Increases number of moves and 
goes back for next one. 

280: Pauses so you can see if youVe 
been caught. 






*550 



CLS: PRINT "YOU HAVE BEEN CAUGHT'" 

LET S*INTUOOOO*(T/G)>;PRINT "YOU SCORED ";S 

PRINTjPRINT "ANOTHER GO? iY/NP 

INPUT All IF A*= n r THEN GOTO 20 

STOP 

LET T=T+l!LET U=U-0.03 

80SUB 390; GOSUB 490 

RETURN 

LET *=GXsLET Y=GY:LET A*=" ' 

60SUB 640:GQSUB 440: RETURN 

LET KI=INT(ftND(J)*4J+! 

LET K2=INT[RNDI1U4]+1 

LET TI=K*(K1) 

LET K*(Kl)=K*(K2hLET K*(K2I=T< 

RETURN 

GOSUB 550 

IF IWfl AND Y=TY THEN GOTO 440 

LET GX=KiLET GY=V 

LET A*='TiGDSUB 640 

RETURN 

GOSUB 550 

LET TMjLET Tt=Y 

LET A*="P":GOSUB 640 

RETURN 

LET F=0:IF HIDKHIM.XJIO" * THEN LET F*i 

RETURN 

LET I=INT(RNDU)*14)+2 

LET Y=JNT(RNDUI*9)+2 

6DSU8 530 

IF N THEN GOTO 550 

RETURN 

CLS: LET X=l 

FOR M TO 12: LET A*=«*(Y} 

GOSUB 640: NEXT Y 

RETURN 

PRINT TA8(X,Y);A* 

RETURN 

FDR 1=1 TO 12:R£AD KKUsNEKT I 

RETURN 

DATA ■ODDOODOODOODOOOD" 

DATA -0 H 

DATA "0 000 00 000 H 




l D 0" 

*D 0000 0" 

'000 0" 

00 0" 

0" 

a ooo o o" 

0" 
DATA H D0DDO0OO0DO00DO0" 

DATA "PEOPLE EATENi ' 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



'0 

'0 
'0 




290-330: Print message and score if 
Jaws is caught. Ask if player wants 
another game. 




Skeleton speech 

bubble 
Score depends on 

number of people 

eaten and number of 

moves. 



340-360: Subroutine which increases 
score and chance of hunter moving and 
goes to other subroutines to change 
keys round and set new person position. 

370-380: Subroutine which removes 
hunter from old position and prints him 
in new one. 

390*430: Subroutine which changes 
keys around. 

440-480: Subroutine for printing hunter, 
using another subroutine to choose a 
random position for him. Line 450 
checks position chosen does not 
already have a person in it. 

490-520: Subroutine for printing person, 
using another subroutine to choose 
random position, 

530-540: Subroutine which checks if 
position X,Y coincides with a wall. If it 
does Fis set to 1. 

550-590: Subroutine which chooses a 
random position and checks it is not a 
walL 

600-630: Subroutine which prints out 
grid. 

640-650: Subroutine which prints at 
position X,Y. 

660-790: Subroutine which reads in data 
for grid. 



These lines make the grid. 

You could change it by 

drawing a new grid on 

squared paper and 

copying it into the 

program using O for walls 

and spaces for passages. 



r 



^jf^Ftyimj Witches 




As chief assistant to Superwitch, your job is to fly across the land on your broomstick 
collecting fresh ingredients for her putrid potions. You will know exactly what to 
collect each time because she transmits her revolting recipes directly to your 
computer screen. 

Ingredients such as T (Toe of Newt) and B (Brain of Bat) flash past beneath you as 
you fly. Press any key to swoop down and pick one up (you must land right on top of it 
to do so). Take care, some of them could be the Broomstick Snatcher in disguise. If you 
land on her, you'll lose your stick. (Luckily you start the game with three spares.) You 
must collect everything you need before you get to the Cauldron or Superwitch will 
not be pleased with you . • . 



IK 



N 




10 60SUB 700:SDBUB 620 

20 LET NH=4:LET M=0iLET FM 

30 GQSOB 530:LET H=NH 

40 G0SUB 550 

50 LET EF=0:LET FF=0iLET 

60 FOR 1=1 TO 4:LET G(I)=0:NEXT 1 

70 FOR 1=1 TO 4:LET A$=P$iI>*V:LET E- 

80 LET M+IifiHB AlOsNEXT 

90 60SUB 490; GOSUB 430 
100 IF M=F« THEN GOTO 250 
110 IF EF=i THEN S0T0 230 
^■120^ INKEY$(0)=" W THEN GOTO 90 
130 LET HN=H-1:G0SU6 510 
140 B0SUB 4?0;6QSUB 430 
150 LET H=HH 

160 IF H>0 THEN GOTO 130 
170 IF P«17 THEN GOSUB 320 
180 IF FF=1 THEN 60TQ 240 
190 GOSUB 530 

200 LET HH*H+1:6DSUB 510;GOSUB 490 
210 LET H=HH:IF H=NH THEN GOTO 90 
220 G0SUB 430s GOTO 200 

230 LET A$="WELL DONE' SUPERWITCH JlSj^LEASED WIT 
240 LET A$="QUT OF BROOMSTICKS' " : GDI ) 260 
250 LET Af= M TQQ LATE!" 
260 LET 1*1:LET Y=15sBDSUB 610 
270 STOP 

200 LET A$= M W a :LET X=P:G0SUB 610 
290 FDR T=l TO IOOOjNEH T 
300 LET MMHMflF NW=0- THEN LET FF 
310 RETURN 

320 IF W=l THEN GOSUB 2 
330 LET 6<R)=6(R)+1 
340 LET A$=STR$(G(RJ)iLI 
350 LET Y=1+R:G0SUB 6L 

-.„.. ... > Try changing the 
LET P= 19: GOSUB 430 f letters into 



How the program works 

20: Sets up variables. (See if you 
can work out what they are.) 

30: H is your height above the 
ground. NH is your new height 
after a dive. 



Too hard for 
you? Make the 

game easier by 

increasing the 

value of FM in. line 

20. This puts 

more objects 

between the 

start and the 

cauldron. 



370 LET F=0 
380 FOR 1=1 TO 4 

390 IF 6U)>=N(I) 




graphics symbols. 



50: EF and FF are flags which are 
set if game is finished. HH is a 
variable for holding intermediate 
heights on the way up or down. 

60: G( ) counts how many of each 
type of object you've picked up, 

70-80: Print recipe. 

90-120: Move "ground" and objects 
across screen until a key is 
pressed. 

130-160: Keep ground and objects 
moving and move witch down to 
ground level. 

120: If P=17 then witch has landed 
on object. 

180: Checks flag for end of game. 

200-220: Move ground and objects 
past until witch reaches new 
height. 

230-270: End messages. 

280-310: Subroutine which shows 
W if object is Broomstick Snatcher 
in disguise. Increases NW and sets 
FF if all b r o om sticks used up. 

320: Subroutine which checks if 
you landed on Broomstick 

Snatcher. 

330-350: Increase number of object 
R collected and print new total on 
screen. 

370-420: Check if all ingredients 
for this recipe have been 
collected. 



THEN LET F=F+1 



Why not change the 
ingredients? 



> 



4 



fy '"'* 




llMf**^ 



400 
410 

430 



450 
470 



Mtfi 



490 

500 
510 

520 
I&530 

540 

■0550 

■O560 

#570 

590 



sas*,.* 



NEXT I 

IF F=4 THEN LET EF«1 

RETURN 

LET 6D=6D+lsIF 6D=6 THEN LET BD«1 

LET A*=6*(GDhLET X=1;LET Y=15sG0SUB 610 

LET A*=" "sLET X=P:LET Y=14jG0SUB 610 

LET P=P+1: IF P=20 THEN GOSUB 550 

LET X=PsLET A$-C$:SQSUB 610 

RETURN 

LET &**M~**siIT K=16;LET Y=14-HB 

SQSUB ilOiRETURH 

LET ft*= w rt :LET M&lLET Y=14-H 

GOSUB 610 J RETURN 

LET NH=INT(RNDfl)*5*3) 

RETURN 

LET R=INT(RNDil)*4)H 

LET W=0; IF RND(1)>0.8 THEN LET tf=l 

LET Cf=LEFT$(P$(R),l):LET P»l 

LET H=H+1 

IF H=FM THEN LET C*= u CAULDRON 

RETURN 

PRINT TAB «,Y>? All RETURN 

CLS:PRINT:PR1NT 

PRINT "THE POTION HUST HAVE*iPRINT 

FOR 1=1 TO 4 

LET N=INT(RNDfl)*3)+2iLET N(I)=N 

PRINTjPRINT;N;" m jP$(I) 

NEXT IlPRXHTlPUNT 

PRINT "PRESS RETURN TO PLAY" 

INPUT X$!CL5;RETURN 

DIM P$(4>!0IM N(4)jDIM 6(4) 

DIM 61(5) 

FOR 1 = 1 TO 4:R£AD P*U>:NEXT I 

DATA "TOES OF NEWTS" , "EYES OF LIZARDS"/ 

LET H$=^=™>"« >==">«==>==«'' 

FOR 1=1 TO SfLET 6*(6-I)=MID*«HI,I 1 I+20) 

NEXT Is LET GD=i 

RETURN 




430-480: Print new section of 
ground and move the object along 
to position P. If object Is past the 
witch (i.e. P=20, then choose a 
new object). 

490-500: Print witch. 

510-520: "Imprint" witch. 

530-540: Choose new height for 
witch, 

550: Chooses an object. 

560: Random chance of object 
being Broomstick Snatcher. 

570: Puts first letter of object in C$ 
and sets position P to 1 . 

580: Increases object counter, M. 

590: If M equals maximum number 
of objects allowed, thenCS 
changed to "CAULDRON". 

610: General subroutine to move 
cursor ready for printing. 

620-690: Choose and print recipe. 

700-770: Set up data for start of 
program. P$ holds names of 
objects, H$ holds symbols for 
ground. Line 750 moves the > 
symbols along each time. 



( WhatwillSuperwitchdotoyouif .^\ 
H you fail? Try adding comments y^*\ 
^-i and penalties to the game, r 



ROOTS OF IVY", "BRAINS OF BATS" 



R 



Conversion lines 

10 120 IF !NKEY*=" K THEN GOTO 90 
A120 BET H; IF 1*="' THEN GOTO 90 
• 120 I*="*;IF PEEK 1-16384) >127 THEN BET El 
#125 IF If:"" THEN GOTO 90 

0530,550,560,650 Replace RMD(I) with RND 
■ 530,550,560,650 Replace RNDUj with RND(O) 
O570 LET Cf=P*(R,l):LET P*l 
$6ffl PRINT AT Y r IiAfiRETURN 



A610 PRINT CHRJ(19):F0ft LL=1 TO YiPRINT; 
NEHiPRINT fAB(l();A*:RETURN 

• 610 VTASWsHTABOU SPRINT ftfjREMN 
■ 610 PRINTi Y*32**,ft$i: RETURN 

±620,690 Replace ELS with PRINT CMR*U47> 

• 620,690 Replace CIS with HOME 
O?00 DIM P*(4,!5):DIH NUhDIJI B(4) 
O710 Did 61(5,24) 

#750 FDft 1=1 TO 5iLET G*(6-U=H*(I TD 1+20 



WMfSffl 





20 RESTQRE.-FOR 1*1 TO R:READ D*sNEXT I 

^30 CLSjPRINT "J1ICR0 PUZZLE" 

40 PRINT ■«=«««===- 

50 PRINT "yOU ARE ":DS 




Micropuzzte 



What's happened? 

Where are you? 

Everything appears fairly normal, 

though you do fee I a bit sick. 

Better take a look round and see if 

you can find out what's going on. 

(Hint: Try talking to your computer in two word sentences.) 



How the program works 



Lines 30-360: MAIN GAME SECTION 



10 SOSUB 1570 



10: Goes to subroutine to read in all the data. 



20-50: Get a room description and P™* it- 



60 IF R=20 AND F(9)=0 THEN PRINT "YOU ARE CONFRONTED BY A LARGE CAT 1 



70 FOR 1=1 TO 6 

80 ]F LCI)=B AND F(I)=0 THEN PRINT ''THERE IS A ";0$(I>; U HERE." 

90 HOT I 



70-90: Check if there is 
anything there. 



100 




PRINT: PRINT "YOU CAN GO u \ 
FOR 1=1 TO LEN(Rt<R)i 
PRINT MD*(M(RM,l)}Vi 
NEXT r 



100-130; Find which directions yon 
can go in and print them. 



PRINT:PRINT "■ 



150 PRINT Ml; LET M*= il WHAT?" 



150: Default message. 



160 IF FU6) = 1 THEN PRINT "SELF DESTRUCT COUNTDOWN AT s";l 




170 
180 
190 
200 

$210 

220 



PRINT "WHAT WILL YOU DO NQN": INPUT Q$ 

LET Vt= u ":LET W$= H,, ;LET VB=0:LET Q8*0*LET LI=LEN(Q$> 

FOR 1=1 TO LI 

IF MIDI(Q'I,I T 1)=" ■ AND V*= JMI THEN LET W»lffT«8» r H) 

IF NID$fQ*,I+l,l)<>" ■ AND V*<> ,,H THEN LET W$=RI6HT$(D$ f LI-I)iLET I=LI 

NEXT I 



170-220: Get your instructions and 
split them into two words. 



. ...... ..-•■. •,'■ > ".' 




230 IF W*="" THEN LET V*=Q$ 
140 FDR 1=1 TO V 
250 IF Vf=HffI) THEN LET VB=I 
260 NEXT I 



230-260: Check first word is a verb. 



270 GOSUB 440 



270: Goes to subroutine to check second word. 



280 IF VB=0 THEN LET VB=V+1 

290 IF »*>•• AND 0B=0 THEN LET H$="THAT IS SILLY" 

300 IF fcf$= u " THEN LET »$=*! NEED TWO WORDS" 

310 IF VB>V AND 0B>0 THEN LET N*= w Y0U CAN'T Hflt 

320 IF VB>V AND 0B=0 THEN LET M$="Y0U DO NOT MAKE SENSE" 

330 IF VB<V AND 0B>0 AND ffl<=G THEN LET M$="YQU DO NOT HAVE n m 



280-330: Set up messages if 
necessary. 



340 LET L=L-1 



340: Counter. 



350 
360 
370 GOTO 390 



IF VB>14 THEN GOTO 380 350-380: Goes to 

ON VB GOSUB 480,550,550,550,550,550,550,550,760,790,790,860,920,970 subroutine 

depending on 
verb you typed. 



390 
a 400 
410 
420 
430 



ON VB-14 GOSUB 1080,1100,1)80,1250,1320,1340,1370,1400,1460,1510,1560 

IF F(14)=0 AND DO THEN GOTO 20 

IF L<1 THEN LET M$= h YDU HAVE RUN OUT OF TIME. THE HAX1HISER SELF DESTRUCTED 1 " 

PRINT rt$:PRINT "GAME OVER" 

IF L>0 THEN GOSUB 1510 f „_. _. ™ \ 390-430: End of c 

STOP 



40 FOR 1=1 TO W 
150 IF W^OHI) THEN LET 0B=I 
460 NEXT I 
470 RETURN 

480 PRINT "YOU ARE CARRYING:" 

490 FOR 1=1 TO G 

500 IF L(I>=25 THEN PRINT OKI)?"/? 

510 NEXT I 

520 LET m= oti \ PRINT 

530 GOSUB 1550 

540 RETURN 



Type I if you want an 

inventory (that is, a list of 

what you are carrying). 




440-470: Subroutine which checks if second 
word is on computer's object list. 



480-540: Subroutine which tells you what 
you are carrying. 



550-750: Subroutine which deals with 
your instructions about which direction 

you want to go. 



550 LET D=0 

560 IF 0B=0 THEN LET D=VB-2 

570 IF 09)24 THEN LET D=0B-24 

580 IF R=19 AND D=6 THEN LET D=4 

590 IF R=20 AND D=6 THEN LET D=4 

600 IF R=20 AND D=5 THIN LET 0=3 

610 IF F (9) =0 AND R=20 AND 0=4 THEN LET fl$= B THE CAT WILL NOT LET YOU" t RETURN 

620 IF R=2 AND L(1J=25 AND D=3 THEN LET NMUtj RETURN 

630 IF R=7 AND F(3)=0 THEN LET H*="AN ANGRY MOUSE BARS YOUR WAY":RETURN 

640 LET F(I3)=0?LET RL=LEN(R$(R) ) 



650 FDR 1=1 TO RL 
$660 LET U*=HIB*(R*(ft),I,l) 
670 IF (U$= W N J » AND D=l AND F(13)=0) 
AND D=2 AND FU31-M 



680 IF 
690 IF 



<U$="S" 

(U$='W AND D=3 AND Fil3)=0) 



700 IF (U$=*E" 
710 NEXT I 



AND D=4 AND F(13)=0) 



THEN LET R=R-6>LET F«13)=l 

THEN LET R=R+6:LET F(13)=l 

THEN LET R»R-IsLET F(13)=l 

THEN LET R=R+kLET F(131=l 




13 



BBSBmBmsaas 



720 LET M*= N 0K N 

730 IF F(13)=0 THEN LET M$="Y0U CANNOT SO THAT WAY" 

740 IF D<1 THEN LET H*=' D WHERE?" 

750 RETURN 



Have yon played a few times 

and decided you'll never be 

able to win? You can give 

yourself more time if you like 

by putting a higher value for 

Lin the middle of line 1910. 



760 
770 
780 

$790 
800 
810 
B20 

830 



850 
860 

870 
880 

890 



910 



940 

950 

960 

970 

980 

990 

1000 

$1010 

1020 

1030 

1040 

1050 

1060 

1070 

$1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

$1160 

1170 

1180 

1190 

1200 

1210 

1220 



LET H$="ARE YOU PRACTISING FOR THE OLYMPICS?" 

IF F(10)=l AND (JM OR R*3) THEN LET M$="IT IS TOO FAR 1Q JUMP" 

RETURN 

IF OB^B THEN LET t1f=V$+ H THE "+M+H2I: RETURN 

IF QB>G THEN LET HI="I CANNOT SET THE "+«$:RE7URN 

IF L(DBK>R THEN LET M*="IT IS NOT HERE" 

IF FfOBJOO THEN LET NI-'HHAT "+«*+"?" 

IF L(QB>=25 THEN LET N*= J, YQU ALREADY HAVE JT" 

IF OB>0 AND L(0S)=R AND F(OB)=0 THEN LET LI0B)=25:LET M$=M3*+N$ 

RETURN 

IF LI0BK25 THEN RETURN 

LET H*="N0T REALLY!": IF 0BO1 THEN RETURN 

PRINT "PUT KEY WHERE" 

INPUT W*;IF W*>"" THEN G0SUB 440 

IF t0B=8 OR HM'DN HQ*(8)) THEN LET H*=H4$jLET F(15)=1:LET L(1)=R 

RETURN 

IF Fill)=0 AND L(7>=25 THEN LET FCllMlsLET F(3)=0:LET L(3)=0:LET H$«B5* 

IF FlilM AND L(7)=25 AND R=20 THEN LET F (91=1 .'LET «**H*+H41 

I? R=21 AND 0B=24 THEN LET F(4>=0;LET N*="DUST SETTLES" 

IF QB=16 THEN G0SUB 970 

RETURN 

LET M="NQTHING OF INTEREST" 

IF 0B=16 AND R=12 THEN LET F<2)=0:LET t1*="IT IS A MICRO - VCR" 

IF 0B*24 AND R=21 THEN LET H*="S0NETHIN6 INSIDE" 

IF 0B=19 AND R=24 THEN GQSUB 1400 

IF DB=23 AMD Ml THEN LET M$=M7* 

IF QB*7 THEN LET N$= U IT CONTAINS A LARGE FLY" 

IF DB=9 AND R=20 AND F(9)=0 THEN LET M$= JS IT BITES AND SCRATCHES!" 

IF 0B=A THEN 80SUB 1080 

IF 0B=1 AND Lfl}=25 THEN LET H*t"THE NUHBER 'ill' IS ENGRAVED ON IT' 1 

IF 0B=6 AND L(6)=25 THEN LET M$="THERE IS A BIG RED BUTTON" 

RETURN 

LET H$=HG*:IF 0B=4 AND L(06)=25 THEN LET K*=MF* 

RETURN 

IF 0BO5 THEN LET M$="CANN0T TIE "+W$sRETURN 

IF L(5)(25 THEN RETURN 

LET W$= H "! PRINT "TIE THE THREAD TO WHAT" 

input m 

IF »>•» THEN G0SUB 440 

LET ltt=*CAN«IT TIE IT TO *W 

IF 0B=13 AND R=9 THEN LET F(5)=1:LET L(5)=0:LET M*=M8$ 

RETURN 

IF DB=5 AND F(5)=0 THEN LET H*="IT IS NOT TIED TO ANYTHING! 

IF 0B=5 AND R=9 AND F(5)=l THEN LET R=8iLET F(10)=0:LET M$= U DK":FF !' :N 

IF 0B=5 AND R=8 AND F(5}=1 THEN LET R=9;LET FUOhliLET MVK 1 

IF QB*J3 AND R=9 THEN LET M^IT IS TOO SNOOTH TO CLIMB" 

IF 0B=W AND R=19 THEN LET 0B=30?G0SUB 550 




760-1500: These are subroutines for the 
verbs used in the program. Look for the 
lines which say RETURN to see where 
one ends and another starts. 



Unless you are using a 

Spectrum, you can leave 

out all the LETs if you like. 



1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
11340 
*1350 
1360 
4370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 



550 



This program is not 

explained as folly as some 

of the others so as not to 

give you too many clues 

about the game. Try 

working out what all the 

lines do after you have 

played a few times. 





^1470 
1430 

:14?0 
1500 



IF 0B=W AND R=20 THEN LET 0B*2?:6QSUB 

RETURN 

IF mm OR L(6><>25 THEN RETURN 

LET W^'sPRlNT "POINT IT AT WHAT" 

input m 

IFUttV THEN GGSUB 440 

IF DB=22 THEN LET F(6}=1 

LET .M*= U VERY WELL" 

RETURN 

IF 0B=3 AND L(0B)=25 THEN LET L(0B)=0:LET H$= M NUNCH CHDHP* 

RETURN 

JF (08=19 OR DM7) AND R=24 AND LUK25 THEN LET HMRtlLEl L=t-12;LET F(16)=l 

IF (0B=1? OR 0B=17) AND R=24 AND HI) =23 THEN LET F(32)=J : LET W$=WH$ 

RETURN 

IF 0B*3 AND R=7 AND LfOB)=25 THEN LET F(3)=1:L£T L(DB)=0:LET B=B+1:LET H*=HA$ 

IF LfQB)=25 THEN LET L(0B}=RiLET M$= U DQNE" 

RETURN 

IF R<>24 THEN LET M*="N0THING HERE TO TYPE 0N!"iRETURN 

IF F(12)=0 THEN LET J1$='THJS TERMINAL IS NON-ACTIVATED" RETURN 

LET M$= W THE TERMINAL ECHOES ; d +« 

IF GB*18 THEN LET M*= y C0DEW0RD ACCEPTED": LET Fii7)=l 

IF OB-20 THEN LET «= "TERMINAL ID" 

RETURN 

IF R=I4 AND 08=11 AND L(8)=22 THEN LET L(fl>=14;LET M*=MB*+NC*! RETURN 

IF R=14 AND 0B=11 AND L(8)=14 THEN LET L(8)"22:LET HfffJBttfltf 

IF F(15)=l THEN LET L(1»=L(8) 

IF DB=21 ANDF(6)=1 AND L<6)=25 AND R*18 AND F<17) = 1 THEN LET B=B+10;LET M=RE*:LET ! '."!) ;i 

RETURN 



1510 LET 5=0:F0R I=i TO 8 

1520 IF LUW2S THEN LET 5*B+J 

1530 NEXT I 

3540 LET S=S+Sj PRINT "YOUR SCORE = ";S 

1550 IF F(14)=0 THEN PRINT "PRESS RETURN TO CONTINUE": INPUT Q$ 

1560 RETURN 



1510-1560: Scoring 
subroutine. 



1570 LET V=24:LET W=31fLET G=8 
$1580 DIM R*(24):DIH BtTHiHN HKV) 
1590 DIM immn fill) 



1570-1590: Set up variables and 
dimension arrays. 



1600 DATA 
1610 DATA 
1620 DATA 
1630 DATA 
1640 DATA 
1650 DATA 
1660 DATA 
1670 DATA 
1680 DATA 
1690 DATA 
1700 DATA 
1710 DATA 
1720 DATA 
1730 DATA 
1740 DATA 



16Q0-18Z0: Data lines 



"INSIDE THE M0USEH0LE - IT IS VERY DARK IN HERE" 

"AT A M0USEH0LE IN A CORNER OF THE ROOM VON THE EDGE OF A HIGH TABLE" 

"AT THE BACK OF A HALLWAY'S" IN A STORAGE RQDHY'IN THE KITCHEN" 

"FURTHER DOWN A DARK SHELLY TUNNEL Y'BY A RAILWAY SIDING" 

"AT THE BASE DF A TALL PLASTIC TREE ON THE EDSE OF A HIGH TABLE" 

"OUTSIDE THE OPEN DOOR OF AN ODDLY PROPORTIONED HOUSE" 

"IN A YELLOW FRONT fiQOH'yBY A TV SET AND A RECORDER" 

"AT THE END OF A DARK TUNNEL" 

"BY A LARGE SWITCH CONNECTED TO THE RAILWAY TRACKS" 

"ALONGSIDE THE WINDING TRACK" 

"AT THE END DF THE LINE-THE TRACK DISAPPEARS THROUGH A HOLE IN THE WALL" 

"BELOW A WHOLE WALL OF OVERSIZED VIDEO SCREENS" 

"STANDING ON THE KAXIKISER PAD" 

"ON A SHELF OF DISTURBING APPARATUS - THERE IS A STOOL NEARBY" 

"ON A SHORT STEP STOOL" 



1750 DATA H 0N THE FLOOR OF AN OVERTURNED BOX OF BROKEN ELECTRONIC PARTS" 

1760 DATA "AT A HOLE IN THE WALL FROH WHICH A RAILWAY LINE EMERGES" 

1770 DATA "AT THE BASE OF A SWIVEL CHIAR" 

1780 DATA "STANDING ON A COMPUTER TERMINAL WITH A SECRURITY LOCK" 

1790 DATA 16,12,3,21,5,17,19,14 

1800 DATA N I% w SO%"N% ,l S , ' 1 l, W% N E J ', J, U' , , N 0", J, JUrtP ,f , H GEr l ,, TAKE fl , tf PUT' J ,"OPEN N 

1910 DATA "EXAMINE 11 , "READ"/ TIE 11 , 'CHUB", -POINT 41 , a EAT", "UNLOCK", "LEAVE", "TyPE" 

1820 DATA "PRESS" t "SCORE " t M SE" , "SW" f "SE ■ t "SHE" , "HE" , "SH" , "NS" T "I4S" , B NE" , "NW" 

1830 DATA "ErS 8 NW K 1 B «S%"NE" l ' ) Er/W% N S" } ,l S", u NED ,r ,"EWUD ,r , , 'Er/ , EW", u NEW" 

1 840 DATA "NW" , "KEY" , "CASSETTE" , "CHEESE " , "PAPER" , "THREAD" , "REMOTE-CONTROL" 

A1850 DATA "BOTTLE" T "TftAIN" . "CAT W , "DOOR" , "SWITCH" T "TUNNEL" , "TREE" , "HQLE" , "MOUSE" 

1860 DATA "VIDEO", "COMPUTER "/GROCER "/TERMINAL"/ 111", *BUTTQN"/NAXIKISER N 

1870 DATA "TV" /BO*"/ NORTH"," SOUTH"/ WEST" /EAST", "UP" /DOWN" /STOOL" 



1880 
1890 
1900 



FOR 1=1 
FOR 1=1 
FOR 1=1 



TO 24 s READ BtiJEH Is FOR 1=1 TO G:READ L(I):NEXT I 

TO VjREAD H$CI);NEXT I : FOR 1=1 TO 24:READ RtilhtlECt I 1880-1900: Read in data. 

TO W:READ 0*(I):NEXT I: LET F(10)=1:LET F(4)=liLET F(2J=1 



1910 LET R-llsLET B=3sLET L=100:LET M*="YOU AWAKEN., "sLET MH*="TERNINAL ACTIVE" 

1920 LET H1**"Y0U CANNOT TAKE THE KEY THROUGH" t LET H2*=" EH? VERY FUNNY'" 
H930 LET N3$="Y0U HAVE THE "jLET M*="WELL DONE '": LET H6$="N0THIN6 OF INTEREST" 

1940 LET M5$="A LOUDLY BUZZING FLY FLIES OUT":LET MB*="THE TRAIN CHUGS " 

1950 LET K7$="IT IS JUST A BOX WITH PHOTO STUCK QfTiLET Iff**"*! TAMPER *!" 
:1960 LET 1181= "IT JS SECURELY TIED.' 1 ! LET 116$=" AND THE CAT CHASES AFTER IT!" 
H970 LET MA$="THE MOUSE RUNS OFF WITH IT/jLET MF*= "TERMINAL PASSWQRD="+Q$U8> 
£1980 LET MC*="INTO SIGHT AND STOPS H£RE"iLET HD*= rJ AWAY AND INTO A TUNNEL" 
am LET KE$= B THE MAXIHISER BEAM WORKS. YOU ARE RETURNED TO NORMAL SIZE" 

2000 RETURN 1910-2000; Set up messages. 



Conversion lines 

30 Replace CLS with PRINT CHRK147) 
30 Replace CLS with HOME 

. . . FOR SPECTRUM USERS $ 



IMPORTANT NOTE 
for Commodore users. 
IS you are using a C64 or a 
VIC 20, you must leave out 
the LETs in lines 400, 1340, 

1320 and 1490. 
If you are using a C64, you 

must leave out all the 

spaces in lines 1490, 1700 

and 1850. 



120 PRINT R-i(R-,D//; 

190 FOR 1=1 TO Ll-1 

200 IF 0*(I)=" " AND Vl=" n THEN LET V$=K< TO H) 

210 IF QKlfDO" " AND V*<>"" THEN LET W$=Q$(I+1 TO ):LET I=LI-1 

235 IF LEN*V$K7 THEN LET V*=V$+" "jSOTD 235 

360 G05UB 480*(VB=1)+550*(VB>1 AND VB<9)+7oO#(VB=9)+7W*{VB*10 OR VB=U) 
+B60HVB=12)+920HVB=13)+970MVB=14) 

380 GOSUB. 10flO»iVB*I5)+1100t(Vfl=16)+llflO#(VB=17)+l250#(VBsl8)+1320*(VB=19)+1340*(VB-20) 
+1370*(VB-21i +1400* (VB=22)+1460#<VB=23) +1510* IVB=24)tl5W*tVB=25J 

440 IF LENIWIK14 THEN LET *$=«+•■ ":BOTO 440 

445 FOR 1=1 TO W 

660 LET U$=R*(R,I) 

900 IF (0B=8 OR W*="ON "+0$(8)+" " T HEN LET H$="WELL DONE! rt ?LET Ffl5)=hLET L(1)=R 
1580 DIM R*t24.4):DIrt 0$iW t 14J:Dl« H*(V,7) 
1910 LET R=ii:LET B=8;LET L=100:LET M$= J 70U AWAKEN., " 
Lines 620,790,840,920,930.1010,1080,1160,1340,1350,1370,1460,1470,1490 
Replace Hit to «H$ in these lines with the text in lines 1910 to 1990 
eg. 620 IF R=2 AND L(l)=25 AND D=3 THEN LET fl*="YQU CANNOT TAKE THE KEV THROUGH": RETURN 
Leave out lines 1920 to 1990 



Answers to puzzles 



Here are the answers to some of the 
puzzles in this book. 

Skulls of The Pyramid 

To add more skulls, change the 5 in line 
260 to a higher number. 

The limits of the number to be scored are 
set in line 20. As the program stands the 
number chosen is between 10 and 39, If 
you change the 30 to 40, you will get a 
number between 10 and 49. If you also 
change the 1 to 20, you will get a number 
between 20 and 49. 

Monster Wrestling 

To increase the number of rounds, 
change the number 1 1 in lines 260 and 
550 to a higher number. (It must be the 
same in both.) 

If you increase the number of rounds, 
you may want more panics. To get these, 
change the number 4 in line 440 to a 
higher number. 

Jaws 

To make the hunter move more often, 
decrease the value of U in line 30, for 
example to 0.8. 

Flying Witches 

If you fail the program goes either to line 
240 or 250 for a message. Change these to 
whatever you like. 
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Practical Things to do with a 
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